home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / get la hex dec < prev    next >
Encoding:
Text File  |  1991-01-01  |  1.0 KB  |  106 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. load =$ffd5
  6. getin =$ffe4
  7. clrchn =$ffcc
  8. close =$ffc3   ;a
  9. chrin =$ffcf
  10. chkout =$ffc9  ;x
  11. chkin =$ffc6   ;x
  12. plot =$fff0
  13. chrout =$ffd2
  14. color'pointer =243
  15. screen'line'pointer =209
  16. print'number =$bdcd ;x,a
  17. clear'line =59903
  18. background =53281
  19. border =53280
  20. unlisten =$ffae
  21. clall =$ffe7
  22.  
  23.  
  24. ; print load address
  25. ; sys addr,filename$
  26.  
  27. .org $c000
  28. .mem
  29. lda #1
  30. ldx 186
  31. cpx #8
  32. bcs +
  33. ldx #8
  34. + ldy #2
  35. jsr setlfs
  36.  
  37. jsr $aefd
  38. jsr $ad9e
  39. jsr $b6a3
  40.  
  41. ldx $22 ;<filename
  42. ldy $23 ;>filename
  43. jsr setnam
  44. jsr open
  45. ldx #1
  46. jsr chkin
  47. jsr getin
  48. sta 251
  49. jsr getin
  50. sta 252
  51.  
  52. jsr clrchn
  53. lda #1
  54. jsr close
  55. ldx 251
  56. lda 252
  57. ldy 211
  58. sty 253
  59. jsr print'number
  60.  
  61. - lda 211
  62. sec
  63. sbc 253
  64. cmp #7
  65.  
  66. beq print'hex
  67.  
  68. lda " "
  69. jsr chrout
  70. bne -
  71.  
  72. print'hex lda "$"
  73. jsr chrout
  74. lda 252
  75. and #%11110000
  76. ror
  77. ror
  78. ror
  79. ror
  80. tay
  81. lda table,y
  82. jsr chrout
  83. lda 252
  84. and #%00001111
  85. tay
  86. lda table,y
  87. jsr chrout
  88.  
  89. lda 251
  90. and #%11110000
  91. ror
  92. ror
  93. ror
  94. ror
  95. tay
  96. lda table,y
  97. jsr chrout
  98. lda 251
  99. and #%00001111
  100. tay
  101. lda table,y
  102. jmp chrout
  103.  
  104.  
  105. table .asc "0123456789ABCDEF"
  106.